home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / EASUPCIS.LZH / XTEUPC1.XTS < prev    next >
Text File  |  1989-09-09  |  4KB  |  118 lines
  1. /*
  2.                 Ease-Up V1.7 INCLUDE file #1 for CROSSTALK Mk.4 v1.1
  3.  
  4.                                       Ease-Up
  5.                               is Copyright (c) 1989 by
  6.                                Simple Solutions, Inc.
  7.                                  All Rights Reserved
  8.  
  9.         This file, XTEUPC1.XTS, and its companion file XTEUPC2.XTS are used
  10.         by the scripts generated by Ease-Up V1.7 and are required for the
  11.         proper operation of those scripts.
  12.  
  13.         The files are 'include' files and are included into and compiled with
  14.         the Ease-Up generated scripts. Their location in the generated script
  15.         file is important, so if for some reason you decide to make any changes
  16.         to the generated code keep this in mind.
  17.  
  18.         The XTALK4 Reference Manual states in its notes on the INCLUDE statement
  19.         that the XTPATH path is not searched for include files. I've found that
  20.         this is not the case, and source files on the XTPATH are included. In
  21.         any case, these files must be available to XTALK4 in order for the
  22.         generated scripts to compile. Keeping the generated scripts and the
  23.         include files together in the same subdirectory will take care of it.
  24.         You should refer to your XTALKK4 manuals for the details of how include
  25.         files are handled.
  26. */
  27.  
  28. /*
  29.  * some exceptions not handled
  30.  * explicitly in the 'watch'
  31.  * construct below
  32.  *
  33.  */
  34.     track clear
  35.     track 1, 'not author'
  36.     track 2, 'unrecognized!'
  37.     track routine TRACKER
  38.  
  39. /*
  40.  * guarantee the protocol
  41.  * is CIS B
  42.  *
  43.  */
  44.      if protocol <> 'CSERVEB' then {
  45.          protocol 'CSERVEB'
  46.      }
  47. /*
  48.  * set host params
  49.  *
  50.  */
  51.     databits 8
  52.     parity none
  53.     stopbits 1
  54.     timing sloppy
  55. /*
  56.  * null answerback for CIS
  57.  *
  58.  */
  59.     answbak_sav = answerback
  60.     answerback = ''
  61. /*
  62.  * define the error window
  63.  * and hide it
  64.  *
  65.  */    
  66.     wn = freewin
  67.     window #wn,at 1,40,size 4,35,border 1,color 14,alert
  68.     hide #wn
  69. /*
  70.  * make sure we're online
  71.  *
  72.  */
  73.     if not online then {
  74.         EXCUSE_ME
  75.         exit
  76.     }
  77. /*
  78.  * initialize vars
  79.  *
  80.  */
  81.     err_num = 0
  82.     ctrl_u = chr(21)
  83. /*
  84.  * lets get started... 
  85.  * goto the forum
  86.  *
  87.  */
  88.     W5R  'g ' + forum_name : ; forum_name initialized by
  89.                              ; generated code
  90.  
  91. /************************************************************************\
  92. *                                                                        *
  93. *   A bunch of stuff can happen between the 'go forum' and the time      *
  94. *   an upload is started. The 'while' and 'watch' take care of the       *
  95. *   nasty details for us.                                                *
  96. *                                                                        *
  97. \************************************************************************/
  98.  
  99.     while online
  100.         watch for
  101.             case 'Messages!'      : W5R ctrl_u
  102.             case 'Libraries!'     : W5R ctrl_u
  103.             case 'Conference!'    : W5R ctrl_u
  104.             case 'Libraries Available:' : W5R libnum : ...
  105.                                   jump UPLD
  106.             case 'Enter choice'   : W5R ctrl_u + 'OP;UM;NO;S'
  107.             case space 'Forum !'  : jump SET_LIB
  108.             'Press <CR>'          : W5R ctrl_u
  109.             'closed for maint'    : err_num = 11 : ...
  110.                                   jump ERROR_HDLR
  111.             'page is empty'       : err_num = 12 : ...
  112.                                   jump ERROR_HDLR
  113.             case space 'MORE !'   : W5R ctrl_u
  114.             quiet 15 seconds      : W5R ctrl_u
  115.         endwatch
  116.     wend
  117.  
  118.